home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_141_addProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  682 b   |  16 lines
  1. on mouseDown
  2.   global gDefaultPropList, gCopyOfList
  3.   doButton()
  4.   set vAddValue to the text of member "Copying Property Duplicate Input Field 2"
  5.   set vAddValue to checkValue(vAddValue)
  6.   set vAddProperty to the text of member "Copying Property Duplicate Input Field 1"
  7.   set vAddProperty to checkValue(vAddProperty)
  8.   if (vAddValue <> EMPTY) and (vAddProperty <> EMPTY) then
  9.     addProp(gDefaultPropList, vAddProperty, vAddValue)
  10.     set the text of member "Copying Property Duplicate Display Field 1" to string(gDefaultPropList)
  11.     if gCopyOfList <> 0 then
  12.       set the text of member "Copying Property Duplicate Display Field 2" to string(gCopyOfList)
  13.     end if
  14.   end if
  15. end
  16.